home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zd.d64 / proc.sets32 < prev    next >
Text File  |  2007-03-01  |  4KB  |  150 lines
  1. 0010 // DELETE "LST.SETS32"
  2. 0020 // LIST   "LST.SETS32"
  3. 0030 
  4. 0040 
  5. 0050 ╞╒╬├ BSTR$(NUMBER) ├╠╧╙┼─
  6. 0060   ─╔═ BINAR$ ╧╞ 32
  7. 0070   BINAR$:=BIN2$(NUMBER)
  8. 0080   ╫╚╔╠┼ ╠┼╬(BINAR$)<32 ─╧ BINAR$:="0"+BINAR$
  9. 0090   ╥┼╘╒╥╬ BINAR$
  10. 0100   
  11. 0110   ╞╒╬├ BIN2$(NUMBER) 
  12. 0120     ╔╞ NUMBER=0 ╘╚┼╬
  13. 0130       ╥┼╘╒╥╬ ""
  14. 0140     ┼╠╙┼ 
  15. 0150       ╥┼╘╒╥╬ BIN2$(NUMBER ─╔╓ 2)+╙╘╥$(NUMBER ═╧─ 2)
  16. 0160     ┼╬─╔╞ 
  17. 0170   ┼╬─╞╒╬├ BIN2$
  18. 0180   
  19. 0190 ┼╬─╞╒╬├ BSTR$
  20. 0200 
  21. 0210 ╞╒╬├ EMPTY ├╠╧╙┼─
  22. 0220   ╔═╨╧╥╘ BSTR$,BVAL
  23. 0230   ─╔═ BINAR$ ╧╞ 32
  24. 0240   BINAR$:=BSTR$(0)
  25. 0250   ╥┼╘╒╥╬ BVAL(BINAR$)
  26. 0260 ┼╬─╞╒╬├ EMPTY
  27. 0270 
  28. 0280 ╞╒╬├ ALL ├╠╧╙┼─
  29. 0290   ╔═╨╧╥╘ BVAL
  30. 0300   ─╔═ BINAR$ ╧╞ 32
  31. 0310   ╞╧╥ T:=1 ╘╧ 32 ─╧ BINAR$:+"1"
  32. 0320   ╥┼╘╒╥╬ BVAL(BINAR$)
  33. 0330 ┼╬─╞╒╬├ ALL
  34. 0340 
  35. 0350 ╞╒╬├ SETOF(ELEMENT) ├╠╧╙┼─
  36. 0360   ╔═╨╧╥╘ BSTR$,BVAL
  37. 0370   ─╔═ BINAR$ ╧╞ 32
  38. 0380   BINAR$:=BSTR$(0)
  39. 0390   BINAR$(ELEMENT):="1"
  40. 0400   ╥┼╘╒╥╬ BVAL(BINAR$)
  41. 0410 ┼╬─╞╒╬├ SETOF
  42. 0420 
  43. 0430 ╞╒╬├ BVAL(BINAR$) ├╠╧╙┼─
  44. 0440   ╔╞ BINAR$="" ╘╚┼╬
  45. 0450     ╥┼╘╒╥╬ 0
  46. 0460   ┼╠╙┼ 
  47. 0470     L:=╠┼╬(BINAR$)
  48. 0480     ╥┼╘╒╥╬ BVAL(BINAR$(1:L-1))*2+╓┴╠(BINAR$(L))
  49. 0490   ┼╬─╔╞ 
  50. 0500 ┼╬─╞╒╬├ BVAL
  51. 0510 
  52. 0520 ╞╒╬├ UNION(SET1,SET2) ├╠╧╙┼─
  53. 0530   ╔═╨╧╥╘ BSTR$,BVAL
  54. 0540   ─╔═ BINAR1$ ╧╞ 32, BINAR2$ ╧╞ 32
  55. 0550   BINAR1$:=BSTR$(SET1)
  56. 0560   BINAR2$:=BSTR$(SET2)
  57. 0570   ╞╧╥ T:=1 ╘╧ 32 ─╧
  58. 0580     ╔╞ BINAR2$(T)="1" ╘╚┼╬ BINAR1$(T):="1"
  59. 0590   ┼╬─╞╧╥ T
  60. 0600   ╥┼╘╒╥╬ BVAL(BINAR1$)
  61. 0610 ┼╬─╞╒╬├ UNION
  62. 0620 
  63. 0630 ╞╒╬├ SECTION(SET1,SET2) ├╠╧╙┼─
  64. 0640   ╔═╨╧╥╘ BSTR$,BVAL
  65. 0650   ─╔═ BINAR1$ ╧╞ 32, BINAR2$ ╧╞ 32
  66. 0660   ─╔═ SECT$ ╧╞ 32
  67. 0670   SECT$:=BSTR$(0)
  68. 0680   BINAR1$:=BSTR$(SET1)
  69. 0690   BINAR2$:=BSTR$(SET2)
  70. 0700   ╞╧╥ T:=1 ╘╧ 32 ─╧
  71. 0710     ╔╞ BINAR1$(T)="1" ┴╬─ BINAR2$(T)="1" ╘╚┼╬
  72. 0720       SECT$(T):="1"
  73. 0730     ┼╬─╔╞ 
  74. 0740   ┼╬─╞╧╥ T
  75. 0750   ╥┼╘╒╥╬ BVAL(SECT$)
  76. 0760 ┼╬─╞╒╬├ SECTION
  77. 0770 
  78. 0780 ╞╒╬├ INSET(SET,ELEMENT) ├╠╧╙┼─
  79. 0790   ╔═╨╧╥╘ BSTR$
  80. 0800   ╔╞ BSTR$(SET)(ELEMENT:ELEMENT)="1" ╘╚┼╬
  81. 0810     ╥┼╘╒╥╬ ╘╥╒┼
  82. 0820   ┼╠╙┼ 
  83. 0830     ╥┼╘╒╥╬ ╞┴╠╙┼
  84. 0840   ┼╬─╔╞ 
  85. 0850 ┼╬─╞╒╬├ INSET
  86. 0860 
  87. 0870 ╞╒╬├ INCLUDE(SET,ELEMENT) ├╠╧╙┼─
  88. 0880   ╔═╨╧╥╘ BSTR$,BVAL
  89. 0890   ─╔═ BINAR$ ╧╞ 32
  90. 0900   BINAR$:=BSTR$(SET)
  91. 0910   BINAR$(ELEMENT):="1"
  92. 0920   ╥┼╘╒╥╬ BVAL(BINAR$)
  93. 0930 ┼╬─╞╒╬├ INCLUDE
  94. 0940 
  95. 0950 ╞╒╬├ EXCLUDE(SET,ELEMENT) ├╠╧╙┼─
  96. 0960   ╔═╨╧╥╘ BSTR$,BVAL
  97. 0970   ─╔═ BINAR$ ╧╞ 32
  98. 0980   BINAR$:=BSTR$(SET)
  99. 0990   BINAR$(ELEMENT):="0"
  100. 1000   ╥┼╘╒╥╬ BVAL(BINAR$)
  101. 1010 ┼╬─╞╒╬├ EXCLUDE
  102. 1020 
  103. 1030 ╞╒╬├ ELEMENTS(SET) ├╠╧╙┼─
  104. 1040   ╔═╨╧╥╘ BSTR$
  105. 1050   ─╔═ BINAR$ ╧╞ 32
  106. 1060   BINAR$:=BSTR$(SET)
  107. 1070   ANT:=0
  108. 1080   ╞╧╥ T:=1 ╘╧ 32 ─╧
  109. 1090     ╔╞ BINAR$(T)="1" ╘╚┼╬
  110. 1100       ╨╥╔╬╘ T;
  111. 1110       ANT:+1
  112. 1120     ┼╬─╔╞ 
  113. 1130   ┼╬─╞╧╥ T
  114. 1140   ╨╥╔╬╘ "#",
  115. 1150   ╥┼╘╒╥╬ ANT
  116. 1160 ┼╬─╞╒╬├ ELEMENTS
  117. 1170 
  118. 1180 ╞╒╬├ MINUS(SET1,SET2) ├╠╧╙┼─
  119. 1190   ╔═╨╧╥╘ BSTR$,BVAL
  120. 1200   ─╔═ BINAR1$ ╧╞ 32, BINAR2$ ╧╞ 32
  121. 1210   BINAR1$:=BSTR$(SET1)
  122. 1220   BINAR2$:=BSTR$(SET2)
  123. 1230   ╞╧╥ T:=1 ╘╧ 32 ─╧
  124. 1240     ╔╞ BINAR2$(T)="1" ╘╚┼╬ BINAR1$(T):="0"
  125. 1250   ┼╬─╞╧╥ T
  126. 1260   ╥┼╘╒╥╬ BVAL(BINAR1$)
  127. 1270 ┼╬─╞╒╬├ MINUS
  128. 1280 
  129. 1290 ╞╒╬├ SYMMINUS(SET1,SET2) ├╠╧╙┼─
  130. 1300   ╔═╨╧╥╘ BSTR$,BVAL
  131. 1310   ─╔═ BINAR1$ ╧╞ 32, BINAR2$ ╧╞ 32
  132. 1320   ─╔═ MIN$ ╧╞ 32
  133. 1330   MIN$:=BSTR$(0)
  134. 1340   BINAR1$:=BSTR$(SET1)
  135. 1350   BINAR2$:=BSTR$(SET2)
  136. 1360   ╞╧╥ T:=1 ╘╧ 32 ─╧
  137. 1370     ╔╞ BINAR1$(T)="1" ┴╬─ BINAR2$(T)="0" ╘╚┼╬
  138. 1380       MIN$(T):="1"
  139. 1390     ┼╠╔╞ BINAR1$(T)="0" ┴╬─ BINAR2$(T)="1" ╘╚┼╬
  140. 1400       MIN$(T):="1"
  141. 1410     ┼╬─╔╞ 
  142. 1420   ┼╬─╞╧╥ T
  143. 1430   ╥┼╘╒╥╬ BVAL(MIN$)
  144. 1440 ┼╬─╞╒╬├ SYMMINUS
  145. 1450 
  146. 1460 ╞╒╬├ I(SET,E) ├╠╧╙┼─
  147. 1470   ╔═╨╧╥╘ INCLUDE
  148. 1480   ╥┼╘╒╥╬ INCLUDE(SET,E)
  149. 1490 ┼╬─╞╒╬├ I
  150.